home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / ai_mrn2.scp < prev    next >
Text File  |  1994-11-21  |  7KB  |  356 lines
  1. { BCHDEATH_MARINE2
  2.     A  OFF
  3.                 @Ç║      (`률             "Marine: Aaahhhh...!")
  4.     @Çå   (`Ç¢        , 200, 1024)
  5.     ^îÑ            = $Ç╗   
  6.     K   
  7. }
  8.  
  9. { TM2R1
  10.  
  11.     I ( ^çô              = $Ç╗    ) THEN
  12.         é     
  13.     I ( ^îÑ            = $Ç╗    ) THEN
  14.         é     
  15.  
  16.     // RESET MARINE
  17.     I  @Ç¢              ( MARINE2 ) = $Ç╗    THEN
  18.         {
  19.         Q      ("CAN'T FIND Marine2 !!");
  20.         é     
  21.         }
  22.  
  23.     ^            = $Ç╗   
  24.     @Ç¥   READY_MARINE2
  25. }
  26.  
  27. { TM2R2
  28.     @Ç¥   TM2R1
  29. }
  30.  
  31. { TM2V1
  32.     I ( ^çô              = $Ç╗    ) THEN
  33.         é     
  34.     I ( ^îÑ            = $Ç╗    ) THEN
  35.         é     
  36.     I ( ^            = $Ç╝   ) THEN
  37.         é     
  38.  
  39.     I ( ^           != 0 ) THEN
  40.         é     
  41.  
  42.     ^           = 1
  43.     //@@@
  44.                 @Ç║       `êá                 $üâ       "MARINE: Unit 14 reporting...~I've got motion in sector 5."
  45. }
  46.  
  47. { TM2V2
  48.  
  49.     I ( ^çô              = $Ç╗    ) THEN
  50.         é     
  51.     I ( ^îÑ            = $Ç╗    ) THEN
  52.         é     
  53.     I ( ^            = $Ç╝   ) THEN
  54.         é     
  55.     I ( ^           != 1 ) THEN
  56.         é     
  57.  
  58.     ^           = 2
  59.     //@@@
  60.                 @Ç║       `êí                 $üâ       "MARINE: I've got a motion lock.~Please confirm."
  61.                 @Ç║       `å│                $Ç╜      "This is Mastaba."
  62.     @Ç║       `å┤                $Ç╜      "Lock confirmed - it's him.~Take him out."
  63. }
  64.  
  65. { TM2GO1
  66.     @Çì      ACTIVATE_MARINE2
  67. }
  68.  
  69. { TM2GO2
  70.     @Çì      ACTIVATE_MARINE2
  71. }
  72.  
  73. { XSADSD
  74.  
  75.     // HIDE MARINE #3
  76.  
  77.     I ( ^çô              = $Ç╗    ) THEN
  78.         é     
  79.  
  80.     I ( ^î⌐             ) THEN
  81.         {
  82.         @Ç¢              ( MARINE3A )
  83.         Y                 BCH9
  84.         }
  85.  
  86.     // ACTIVATE MARINE #2
  87.  
  88.     @Çì      ACTIVATE_MARINE2
  89.  
  90. }
  91.  
  92. { READY_MARINE2                 // CALLED DURING LEVEL LOAD
  93.  
  94.     I ( ^çô              = $Ç╗    ) THEN
  95.         é     
  96.     I ( ^îÑ            = $Ç╗    ) THEN
  97.         é     
  98.  
  99.     ^            = $Ç╗   
  100.  
  101.     I  @Ç¢              ( MARINE2 ) = $Ç╗    THEN
  102.         {
  103.         Q      ("CAN'T FIND Marine2 !!");
  104.         é     
  105.         }
  106.  
  107.     Z       CURFIG ON
  108.     r          CURFIG OFF
  109.     è          ON
  110.     ï           PLAYER
  111.     Y                 BTN1 BTN2 BTN3 BTN4 BTN5 BCHA BCHB BCHC
  112.  
  113.     I  @Çæ        (ANYWHERE,BLASTERM2) = $Ç╗    THEN
  114.         {
  115.         I  @ÇÜ            (BLASTERM2) THEN
  116.             f         CARRY
  117.         E   
  118.             {
  119.             Q       "Can't find blasterM2" // DO NOT TRANSLATE
  120.             }
  121.         }
  122.  
  123.     ö     MARINE2
  124.     G     PMRN2
  125.     £     FMRN2
  126. }
  127.  
  128. { ACTIVATE_MARINE2       // CALLED BY A TRIGGER
  129.  
  130.     I ( ^çô              = $Ç╗    ) THEN
  131.         é     
  132.     I ( ^îÑ            = $Ç╗    ) THEN
  133.         é     
  134.     I ( ^            = $Ç╝   ) THEN
  135.         é     
  136.  
  137.  
  138.     Y                 BTN1 BTN2 BTN3 BTN4 BTN5 BCHA BCHB BCHC
  139.  
  140.     I  @Ç¢              ( MARINE2 ) = $Ç╗    THEN
  141.         {
  142.         Q      ("CAN'T FIND Marine2 !!");
  143.         é     
  144.         }
  145.  
  146.     ^            = $Ç╝  
  147.     ┬             
  148.  
  149.     A  OFF
  150.     G  FMRN2 RUN 30
  151.     ┴            
  152.  
  153.     I (^           > 2) THEN
  154.         {
  155.         ^ïÜ            = @Ç║       `êñ                 $üâ       "I wish I could see the~expression on your face."
  156.         ^ïÖ            = @Çÿ            ( `êñ                 )
  157.         A  ON
  158.         é     
  159.         }
  160.  
  161.     ^           = 3
  162.  
  163.     ^ïÜ            = @Ç║       `êó                 $üâ       "By the Paragon! He's got some~sort of reflective suit on!"
  164.     ^ïÖ            = @Çÿ            ( `êó                 )
  165.     M      ATK_SHOOT
  166.     A  ON
  167.  
  168. }
  169.  
  170. { MARINE2_AI
  171.  
  172.     P        ~ÇÇ  
  173.  
  174.     ^ïá        = 0          // SET SUPER-RECOIL COUNTERS TO ZERO
  175.     ^       = 0
  176.  
  177.     :TOP
  178.  
  179.     â      
  180.  
  181.     I ( ^            = $Ç╗    ) THEN
  182.         J    #Çï
  183.  
  184.     // MAKE SURE IT'S OK TO MOVE AROUND AND ATTACK
  185.  
  186.     I ( .ÇéÇâ               != $üì            ) THEN
  187.         J    #Çï
  188.  
  189.     ~ÇÇ   = @Ç¥   MONSTER_MOVE 15
  190.  
  191.     I  ( ~ÇÇ   > 0 ) THEN
  192.         {
  193.         N     ( ~ÇÇ   )
  194.             {
  195.             U    1
  196.             I  @Çô        ("atk_m1") != $Ç╝   THEN
  197.                 M      ATK_M1 CONTINUE
  198.                 X ÇÇ 
  199.             U    2
  200.             I  @Çô        ("atk_m2") != $Ç╝   THEN
  201.                 M      ATK_M2 CONTINUE
  202.                 X ÇÇ 
  203.             U    3
  204.             I  @Çô        ("atk_m3") != $Ç╝   THEN
  205.                 M      ATK_M3 CONTINUE
  206.                 X ÇÇ 
  207.             U    4
  208.             U    6
  209.                 ┴            
  210.                 X ÇÇ 
  211.             U    7
  212.             I  @Çô        ("atk_m7") != $Ç╝   THEN
  213.                 M      ATK_M7 CONTINUE
  214.                 X ÇÇ 
  215.             U    8
  216.             I  @Çô        ("atk_m8") != $Ç╝   THEN
  217.                 M      ATK_M8 CONTINUE
  218.                 X ÇÇ 
  219.             U    9
  220.             I  @Çô        ("atk_m9") != $Ç╝   THEN
  221.                 M      ATK_M9 CONTINUE
  222.                 X ÇÇ 
  223.             U    10
  224.                 ┴            
  225.                 M      ATK_SHOOT
  226.                 X ÇÇ 
  227.             }
  228.         }
  229.     E   
  230.         {
  231.                     @Çì      LUTHOR_ATTACK
  232.         }
  233.  
  234.     â      
  235.     J    #Çï
  236. }
  237.  
  238. { MARINE2_STIMULUS( _DAMAGE )
  239.  
  240. :GOT_HIT
  241.  
  242.     I ( @Çó            ( ^ïÜ            ) == $Ç╝   ) THEN
  243.                 ( ^ïÖ           )
  244.  
  245.     é     
  246.  
  247. :SUPER_RECOIL
  248.     ^       ++
  249.     I (^       = 1) THEN
  250.         {
  251.         //@@@
  252.         ^怒          = @Ç║       `ç╣                  $üé     "It's a bad idea to get in my way right now."
  253.         ^ï₧         = @Çÿ            ( `ç╣                  )
  254.         }
  255.     I (^       = 3) THEN
  256.         {
  257.         //@@@
  258.         ^怒          = @Ç║       `ç║                  $üé     "You people have worse problems to worry~about in this place than me!"
  259.         ^ï₧         = @Çÿ            ( `ç║                  )
  260.         }
  261.     I (^       = 5) THEN
  262.         ^       = 0
  263.     é     
  264.  
  265. :PLAYER_SUPER_RECOILED
  266.     ^ïá        ++
  267.  
  268.     A  OFF
  269.     @Ç¥   READY_MONSTER_TAUNT
  270.  
  271.  
  272.     I (^ïá        = 1) THEN
  273.         {
  274.         //@@@
  275.         ^ïÜ            = @Ç║       `êú                 $üâ       "You want the job done right,~call the professionals."
  276.         ^ïÖ            = @Çÿ            ( `êú                )
  277.         M      C_TAUNT1 CONTINUE
  278.         }
  279.     I (^ïá        = 3) THEN
  280.         {
  281.         //@@@
  282.         ^ïÜ            = @Ç║       `êñ                 $üâ       "I wish I could see the~expression on your face."
  283.         ^ïÖ            = @Çÿ            ( `êñ                 )
  284.         M      C_TAUNT1 CONTINUE
  285.         }
  286.     I (^ïá        = 5) THEN
  287.         ^ïá        = 0
  288.  
  289.     @Ç¥   PAUSE_FOR_SUBTITLE
  290.     M      ATK_STAND CONTINUE
  291.     A  ON
  292.     é     
  293.  
  294. :KILLED_PLAYER
  295.     I ( ^îÑ            = $Ç╗    ) THEN
  296.         é     
  297.  
  298.     A  OFF
  299.     M      ATK_M2 CONTINUE
  300.     W    20
  301.     ┴            
  302.     M      ATK_STAND CONTINUE
  303.     W    1 SECONDS
  304.  
  305.     M      TAUNT1 CONTINUE
  306.     //@@@
  307.     ^ïÜ            = @Ç║       `êÑ                  $üâ       "MARINE: Our comrades are avenged."
  308.     @Ç¥   PAUSE_FOR_SUBTITLE
  309.     â      
  310.     M      STAND CONTINUE
  311. }
  312.  
  313. {  MARINE2_DEATH
  314.  
  315.     ^îÑ            = $Ç╗   
  316.     @Ç¢              (MARINE2)
  317.     ║            ON
  318.     M      DIE
  319.     o         
  320.     u          CURFIG OFF
  321.  
  322.     // HAVE HIM DROP THE KEY DEVICE
  323.     I  @Çæ        (RTHAND,BLASTERM2) THEN
  324.         {
  325.         @ÇÜ            (RTHAND)
  326.         f         GROUND
  327.         }
  328.     E   
  329.         Q       "I've lost me BlasterM2 device!"        // DO NOT TRANSLATE
  330.  
  331.     @Ç¢              (PLAYER)
  332.     A  OFF
  333.     M      ATK_M2 CONTINUE
  334.     W    20
  335.     ┴            
  336.     è          OFF
  337.     M      STAND CONTINUE
  338.     W    1 SECONDS
  339.     M      TAUNT2 CONTINUE
  340.     @Çì      GROWL 5
  341.     //@@@
  342.                 @Ç║       `ç╗                $üé     "If you only knew what happened here,~you'd turn your guns on them instead!"
  343.     A  ON
  344.     C      UNLOCK
  345. }
  346.  
  347. //    _MARINE2_ACTIVE = _FALSE
  348.  
  349. //    DEFINEVIEWINGCAMS BTN1 BTN2 BTN3 BTN4 BTN5 BCHA BCHB BCHC
  350. //    GO FMRN2 RUN 40
  351. //    GO PMRN2 RUN 40
  352. //    GO    PMRN2
  353. //    FACE  FMRN2
  354.  
  355. //$ 26 - version number
  356.